home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1997 #1
/
Amiga Plus CD - 1997 - No. 01.iso
/
pd
/
disktools
/
virtualfloppy
/
install-script
< prev
next >
Wrap
Text File
|
1986-02-02
|
2KB
|
108 lines
(set @my-dest "SYS:Tools/")
(if (<> "deutsch" @language)
(
(set #begin (cat "\nVirtualFloppy is ©1996 by Holger Kasten.\n\n")
)
(set #Pfad (cat "Select the target directory for VirtualFloppy."))
(set #Hilfe-Pfad (cat "\nThis section lets you choose the target directory to install VirtualFloppy in.\n\n"
"Default is SYS:Tools/\n\n"
@askdir-help))
(set #ende (cat "\nHave fun with VirtualFloppy."))
(set #mount (cat "Diskformat"))
)
(
(set #begin (cat "\nVirtualFloppy ist ©1996 von Holger Kasten.\n\n"))
(set #Pfad (cat "Wählen Sie bitte das Zielverzeichnis für VirtualFloppy\n"))
(set #Hilfe-Pfad (cat "\nHier können Sie das Zielverzeichnis für VirtualFloppy angeben.\n\n"
" Default ist SYS:Tools/\n\n"
@askdir-help))
(set #ende (cat "\nViel Spaß mit VirtualFloppy."))
(set #mount (cat "Was für Disketten möchten Sie simulieren?"))
))
(message #begin)
(complete 0)
(set target (askdir (prompt (cat #Pfad))
(help (cat #Hilfe-Pfad))
(default @my-dest)
)
)
(set @my-dest target)
(makedir (tackon @my-dest "VirtualFloppy") (infos))
(set @my-dest (tackon @my-dest "VirtualFloppy"))
(complete 20)
(copyfiles (source "VirtualFloppy")
(dest (tackon @my-dest "")) (infos)
)
(complete 40)
(copylib
(source "devs/fmsdisk.device")
(dest "devs:")
)
(copylib
(source "libs/reqtools.library")
(dest "libs:")
)
(complete 60)
(makedir (tackon "devs:" "VFX-DISKS"))
(set vi_mount (askchoice
(help "")
(prompt #mount)
(choices
"30 Amiga (880 KB) Disks"
"30 PC (720 KB) Disks"
"15 Amiga (880 KB) Disks & 15 PC (720 KB) Disks")
))
(IF (= 0 vi_mount)
(copyfiles
(source "devs/Amiga/VFX-mountlist")
(dest (tackon "devs:" ""))
)
)
(IF (= 1 vi_mount)
(copyfiles
(source "devs/PC/VFX-mountlist")
(dest (tackon "devs:" ""))
)
)
(IF (= 2 vi_mount)
(copyfiles
(source "devs/Amiga&PC/VFX-mountlist")
(dest (tackon "devs:" ""))
)
)
(complete 80)
(copyfiles
(source "RegiTool")
(dest (tackon @my-dest "") (infos))
)
(copyfiles
(source "Anleitung")
(dest (tackon @my-dest "") (infos))
)
(message #ende)
(complete 100)